﻿Namespace Database
    Public MustInherit Class clsDbItem
        Implements IDbItem

        Protected m_pAttributes As Dictionary(Of String, clsAttribute)

        Public ReadOnly Property Attributes As System.Collections.Generic.Dictionary(Of String, clsAttribute) Implements IDbItem.Attributes
            Get
                Return m_pAttributes
            End Get
        End Property

        Public Sub SetAttribute(ByVal sName As String, ByVal sValue As Object) Implements IDbItem.SetAttribute
            If m_pAttributes.ContainsKey(sName) Then
                m_pAttributes(sName).Value = sValue
            End If
        End Sub

        Public MustOverride ReadOnly Property TableName As String Implements IDbItem.TableName
        Public MustOverride Function Clone() As Object Implements System.ICloneable.Clone
    End Class
End Namespace
